﻿Public Class FrmMain


    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub AbrirFormulario(formulario As Form)
        formulario.MdiParent = Me
        formulario.Show()
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
    'Cerrar Sesion
    Private Sub RibOptionItem2_Click(sender As Object, e As EventArgs) Handles RibOptionItem2.Click
        gestorProcesos.CerrarSesion()
        Me.Close()
        FrmIniciarSesion.txtStrUsuario.Text = ""
        FrmIniciarSesion.txtStrClave.Text = ""
        FrmIniciarSesion.Visible = True
    End Sub

    Private Sub RibOptionItem1_Click(sender As Object, e As EventArgs) Handles RibOptionItem1.Click
        Me.Close()
        End
    End Sub

    Private Sub RibOrbBtn1_Click(sender As Object, e As EventArgs) Handles RibOrbBtn1.Click
        AbrirFormulario(FrmEditarParametrosSistema)
    End Sub
    Private Sub RibOrbBtn3_Click(sender As Object, e As EventArgs) Handles RibOrbBtn3.Click
        AbrirFormulario(FrmMantRoles)
    End Sub
    'Cambio de Contraseña
    Private Sub RibOrbBtn4_Click(sender As Object, e As EventArgs) Handles RibOrbBtn4.Click
        AbrirFormulario(FrmCambiarClave)
    End Sub

    'Mantenimiento de Usuarios
    Private Sub RibTab1Panel1Btn1_Click(sender As Object, e As EventArgs) Handles RibTab1Panel1Btn1.Click
      


        
    End Sub

    'Mantenimiento de Maquinas de Ejercicios
    Private Sub RibTab1Panel2Btn1_Click(sender As Object, e As EventArgs) Handles RibTab1Panel2Btn1.Click
        AbrirFormulario(FrmMantMaquinas)
    End Sub

    'Mantenimiento de Músculos
    Private Sub RibTab1Panel2Btn2_Click(sender As Object, e As EventArgs) Handles RibTab1Panel2Btn2.Click

    End Sub

    'Mantenimiento de Ejercicios
    Private Sub RibTab1Panel2Btn3_Click(sender As Object, e As EventArgs) Handles RibTab1Panel2Btn3.Click

    End Sub

    Private Sub RibbonButton1_Click(sender As Object, e As EventArgs) Handles RibbonButton1.Click
        FrmAbout.ShowDialog()
    End Sub

    Private Sub RibTab1Panel3Btn1_Click(sender As Object, e As EventArgs) Handles RibTab1Panel3Btn1.Click
        AbrirFormulario(FrmIngresarPago)
    End Sub

    Private Sub RibTab2Pan4Btn1_Click(sender As Object, e As EventArgs) Handles RibTab2Pan4Btn1.Click
        MsgBox("Bitacora de Errores o Excepciones")
    End Sub

    Private Sub RibTab2Pan4Btn2_Click(sender As Object, e As EventArgs) Handles RibTab2Pan4Btn2.Click
        MsgBox("Bitacora de Eventos o Transacciones")
    End Sub

    Private Sub RibTab2Pan5Btn1_Click(sender As Object, e As EventArgs) Handles RibTab2Pan5Btn1.Click
        MsgBox("Reporte de Funcionarios del Gimnacio")
    End Sub

    Private Sub RibTab2Pan5Btn2_Click(sender As Object, e As EventArgs) Handles RibTab2Pan5Btn2.Click
        MsgBox("Reporte de Horario de los Funcionarios")
    End Sub

    Private Sub RibTab2Pan5Btn3_Click(sender As Object, e As EventArgs) Handles RibTab2Pan5Btn3.Click
        MsgBox("Reporte de Clientes Morosos")
    End Sub

    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim RM As Resources.ResourceManager
        RM = New Resources.ResourceManager("UserInterfaceLocal.Resources", System.Reflection.Assembly.GetExecutingAssembly)

        Ribbon1.OrbStyle = RibbonOrbStyle.Office_2010
        Theme.ColorTable.ReadThemeIniFile(RM.GetObject("SilverBlack"))
        Ribbon1.Refresh()
        Me.Refresh()

        RM.ReleaseAllResources()
    End Sub

End Class
